home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD021b.dsk / MAKE.DISPLAY.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  74 lines
  1. 0  TEXT : NORMAL : SPEED= 255
  2. 4 O = 1
  3. 5 CR = 1
  4. 6 U$ = "I":L$ = "J":R$ = "K":D$ = "M"
  5. 7 UR$ = "O":DR$ = ",":DL$ = "N":UL$ = "U"
  6. 8 T$ = "T"
  7. 9 S$ = "<CTRL-S>":N$ = "<CTRL-D>"
  8. 10  HOME : VTAB 10: INPUT "WHAT IS YOUR MESSAGE?";M$
  9. 11 I$ = "F"
  10. 15  DIM A$(256): FOR G = 1 TO  LEN(M$):A$(G) =  MID$ (M$,G,O): NEXT 
  11. 17  PRINT : INPUT "WHAT IS YOUR STARTING VTAB POSITION?";V
  12. 20  DIM H(1000),V(1000)
  13. 30  INPUT "WHAT IS YOUR STARTING HTAB POSITION?";SH
  14. 31  HOME 
  15. 35 V = 12:H = SH
  16. 40  VTAB V: HTAB H: GET A$
  17. 50  IF A$ = U$  THEN VN =  -O:HN = 0
  18. 60  IF A$ = UL$  THEN VN =  -O:HN =  -O
  19. 70  IF A$ = L$  THEN HN =  -O:VN = 0
  20. 80  IF A$ = DL$  THEN HN =  -O:VN = O
  21. 90  IF A$ = D$  THEN HN = 0:VN = O
  22. 100  IF A$ = DR$  THEN HN = O:VN = O
  23. 110  IF A$ = R$  THEN HN = O:VN = 0
  24. 120  IF A$ = UR$  THEN HN = O:VN =  -O
  25. 121  IF A$ = S$  THEN SF = 1: GOTO 40
  26. 122  IF A$ = N$  THEN SF = 0: GOTO 40
  27. 125  IF A$ = T$  THEN 31000
  28. 130  IF A$ = "S"  THEN 2000
  29. 140 H = H +HN:V = V +VN
  30. 145 C = C +1:H(C) = H:V(C) = V
  31. 160  INVERSE : VTAB V: HTAB H: PRINT " ";
  32. 165 HN = 0:VN = 0
  33. 170  GOTO 40
  34. 240  PRINT "0 DIM H(";C +1;"): DIM V(";C +1"      ;"): DIM A$(255):M$ = "; CHR$          (34);M$; CHR$ (34);": GOSUB 29000"
  35. 2000  NORMAL : PRINT : PRINT "<CTRL-D>BSAVE PAGE,A1024,L1024"
  36. 2010  HOME : VTAB 10: INPUT "WHAT FILE SHOULD THIS BE SAVED TO?";SF$
  37. 2020  PRINT "<CTRL-D>";"OPEN";SF$
  38. 2021  PRINT "<CTRL-D>CLOSE";SF$
  39. 2022  PRINT "<CTRL-D>DELETE";SF$
  40. 2023  PRINT "<CTRL-D>OPEN";SF$
  41. 2030  PRINT "<CTRL-D>";"WRITE";SF$
  42. 2040  PRINT "0 DIM H(";C +5;"):DIM V(";C +5;"):DIM A$(255): M$="; CHR$(34);M$; CHR$(34);":GOSUB 29000:O=1"
  43. 2045  PRINT "28999 END
  44. 2050  PRINT "29000 FOR G=1 TO LEN(M$):A$(G)=MID$(M$,G,1):NEXT:RETURN"
  45. 2055  PRINT "31000 NORMAL:IF SF THEN INVERSE"
  46. 2056  POKE 33,33
  47. 2060  LIST 31030 -31120: PRINT "31130 RETURN"
  48. 2065  TEXT 
  49. 2080 BN = 32000
  50. 2100  FOR P = 1 TO C:BN = BN +1: PRINT BN;"DATA";H(P);","V(P): NEXT 
  51. 2110  PRINT "1 GOSUB ";BN +10
  52. 2115  PRINT BN +5;"DATA"; -1;","; -1
  53. 2120  PRINT BN +10;"C=C+1:READ H(C):READ V(C):IF H(C)<>-1 THEN ";BN +10
  54. 2130  PRINT BN +20;"C=C-2:RETURN"
  55. 2200  PRINT "<CTRL-D>CLOSE";SF$
  56. 2205  PRINT "<CTRL-D>BLOAD PAGE"
  57. 2210 P =  PEEK( -16368): GOTO 40
  58. 31000  PRINT : PRINT  CHR$(4);"BSAVE PAGE,A1024,L1024"
  59. 31010  HOME 
  60. 31020  NORMAL : IF SF  THEN  INVERSE 
  61. 31030 X = O
  62. 31040 M =  LEN(M$):S$ = " "
  63. 31050 M = M +1
  64. 31060  FOR G = 1 TO C -M
  65. 31070  VTAB V(G) +VA: HTAB H(G) +HA
  66. 31075  PRINT S$;
  67. 31080  VTAB V(G +X) +VA
  68. 31085  HTAB H(G +X) +HA
  69. 31087  PRINT A$(X);
  70. 31090 X = X +O: IF X <M  THEN 31080
  71. 31100 X = O
  72. 31110  NEXT 
  73. 31120  PRINT 
  74. 31130  PRINT  CHR$(4)"BLOAD PAGE":P =  PEEK( -16368): GOTO 40